# print('my first R script')

# load the file raw_stats
# ignoring header data
performance_data <- read.table('./x00076918eaa/raw_stats.dat', TRUE)

# creates a time series graph
plot(100-performance_data[,'X.idle'], type='b', xlab='Time in seconds', ylab='% utilisation (U_i)')

# store avg utilisation in U_i
U_i <- mean(100-performance_data[,'X.idle'])

d_i <- U_i / 94
